home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Shortcut 1.xpl < prev    next >
Text File  |  2004-02-14  |  3KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Files&Folders\Shortcuts"
  5. "NAME"="Shortcut Arrow"
  6. "VERSION"="1.35"
  7. "LANGUAGE"="VBScript"
  8. "WARNING"="1"
  9. "TEXT 1"="Display arrow on shortcuts (*.lnk)"
  10. "TEXT 2"="Display arrow on DOS-shortcuts (*.pif)"
  11. "TEXT 3"="Display arrow on Internet shortcuts (*.url)"
  12. "DESCRIPTION 1"="To display the white arrow in the left corner of a shortcut, activate or deactivate the option your are interessted in."
  13. "DESCRIPTION 2"="WARNING: This tweak effectively makes Windows not recognize shortcuts as being shortcuts. This can have some drawbacks, for example, when double-clicking on a shortcut, instead of the program it is supposed to link to being executed, Windows may instead open the "Open With" dialog window."
  14. "DESCRIPTION 3"="To make it short: If you do not need to non-appearances of the arrows absolutely, leave these settings alone."
  15. "DESCRIPTION 4"="Note #1: Deactivating the arrow for *.LNK files will also disable any shortcut key defined for your shortcuts!"
  16. "DESCRIPTION 5"="Note #2: Deactivating the arrow for *.URL files will also cause the Start -> Favorites menu to be empty."
  17. "DESCRIPTION 6"="Note #3: Please note that in some cases deactivating the arrow for *.LNK files might lead to duplicate items in the Explorer Context menu."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"="Internet Shortcut support added by Pierre Szwarc [szwarc@usa.net]"
  22. "COMMENT 2"="Spelling errors detected by jhapgood@ix.netcom.com"
  23. "COMMENT 3"="Thanks for the additonal text to Jager-bomb"
  24.  
  25.  
  26. Sub Plugin_Initialize 
  27.  s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  28.  if IsEmpty(s)=false then
  29.     SetUIElement 1,true
  30.  end if
  31.  
  32.  s=RegReadValue("HKCR\piffile\IsShortcut")
  33.  if IsEmpty(s)=false then
  34.     SetUIElement 2,true
  35.  end if
  36.  
  37.  s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  38.  if IsEmpty(s)=false then
  39.     SetUIElement 3,true
  40.  end if
  41.  
  42. End Sub
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  b=GetUIElement(1)
  49.  if b=true then
  50.     Call RegWriteValue("HKCR\Lnkfile\IsShortcut","",1)
  51.  else
  52.     s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  53.     if IsEmpty(s)=false then
  54.        Call RegDeleteValue("HKCR\Lnkfile\IsShortcut")
  55.     end if
  56.  end if
  57.  
  58.  b=GetUIElement(2)
  59.  if b=true then
  60.     Call RegWriteValue("HKCR\piffile\IsShortcut","",1)
  61.  else
  62.     s=RegReadValue("HKCR\piffile\IsShortcut")
  63.     if IsEmpty(s)=false then
  64.        Call RegDeleteValue("HKCR\piffile\IsShortcut")
  65.     end if
  66.  end if
  67.  
  68.  b=GetUIElement(3)
  69.  if b=true then
  70.     Call RegWriteValue("HKCR\InternetShortcut\IsShortcut","",1)
  71.  else
  72.     s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  73.     if IsEmpty(s)=false then
  74.        Call RegDeleteValue("HKCR\InternetShortcut\IsShortcut")
  75.     end if
  76.  end if
  77.  
  78.  Restart
  79. End Sub
  80.  
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.  
  85.  
  86.  
  87.